TITLE	BAIPRC
$BEGIN←←.+1

ITMVAR←ITMVAR+UNTYPE	;TYPE KLUGE



	EXTERNAL MAINPR
	0
	LINK	PDLNK,.-1
	,MAINPR
	6
	POINT	7,[ASCII/MAINPR/]
	REFB+PROCB+UNTYPE
	XWD	2*0,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	MAINPR,0
	XWD	MAINPR,0


	EXTERNAL RESUME
	0
	LINK	PDLNK,.-1
	,RESUME
	6
	POINT	7,[ASCII/RESUME/]
	REFB+PROCB+ITMVAR
	XWD	2*0,4
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	RESUME,0
	XWD	RESUME,0
	0+ITMVAR+VALUE
	0+DEFLT+$DFLT$+ITMVAR+VALUE
	0+DEFLT+$DFLT$+INTEGR+VALUE


	EXTERNAL ASKNTC
	0
	LINK	PDLNK,.-1
	,ASKNTC
	6
	POINT	7,[ASCII/ASKNTC/]
	REFB+PROCB+ITMVAR
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	ASKNTC,0
	XWD	ASKNTC,0
	0+ITMVAR+VALUE
	0+DEFLT+$DFLT$+INTEGR+VALUE


	EXTERNAL CAUSE1
	0
	LINK	PDLNK,.-1
	,CAUSE1
	6
	POINT	7,[ASCII/CAUSE1/]
	REFB+PROCB+ITMVAR
	XWD	2*0,4
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CAUSE1,0
	XWD	CAUSE1,0
	0+ITMVAR+VALUE
	0+DEFLT+$DFLT$+ITMVAR+VALUE
	0+DEFLT+$DFLT$+INTEGR+VALUE


	EXTERNAL MKEVTT
	0
	LINK	PDLNK,.-1
	,MKEVTT
	6
	POINT	7,[ASCII/MKEVTT/]
	REFB+PROCB+UNTYPE
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	MKEVTT,0
	XWD	MKEVTT,0
	0+ITMVAR+VALUE


	EXTERNAL JOIN
	0
	LINK	PDLNK,.-1
	,JOIN
	4
	POINT	7,[ASCII/JOIN/]
	REFB+PROCB+UNTYPE
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	JOIN,0
	XWD	JOIN,0
	0+SET+VALUE


	EXTERNAL SUSPEND
	0
	LINK	PDLNK,.-1
	,SUSPEND
	7
	POINT	7,[ASCII/SUSPEND/]
	REFB+PROCB+ITMVAR
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	SUSPEND,0
	XWD	SUSPEND,0
	0+ITMVAR+VALUE


	EXTERNAL TERMINATE
	0
	LINK	PDLNK,.-1
	,TERMINATE
	11
	POINT	7,[ASCII/TERMINATE/]
	REFB+PROCB+UNTYPE
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	TERMINATE,0
	XWD	TERMINATE,0
	0+ITMVAR+VALUE


	EXTERNAL MYPROC
	0
	LINK	PDLNK,.-1
	,MYPROC
	6
	POINT	7,[ASCII/MYPROC/]
	REFB+PROCB+ITMVAR
	XWD	2*0,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	MYPROC,0
	XWD	MYPROC,0


	EXTERNAL CALLER
	0
	LINK	PDLNK,.-1
	,CALLER
	6
	POINT	7,[ASCII/CALLER/]
	REFB+PROCB+ITMVAR
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CALLER,0
	XWD	CALLER,0
	0+ITMVAR+VALUE


	EXTERNAL INTSET
	0
	LINK	PDLNK,.-1
	,INTSET
	6
	POINT	7,[ASCII/INTSET/]
	REFB+PROCB+UNTYPE
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	INTSET,0
	XWD	INTSET,0
	0+ITMVAR+VALUE
	0+INTEGR+VALUE


	EXTERNAL INTTBL
	0
	LINK	PDLNK,.-1
	,INTTBL
	6
	POINT	7,[ASCII/INTTBL/]
	REFB+PROCB+UNTYPE
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	INTTBL,0
	XWD	INTTBL,0
	0+INTEGR+VALUE


	EXTERNAL CLKMOD
	0
	LINK	PDLNK,.-1
	,CLKMOD
	6
	POINT	7,[ASCII/CLKMOD/]
	REFB+PROCB+UNTYPE
	XWD	2*0,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CLKMOD,0
	XWD	CLKMOD,0


	EXTERNAL DFRINT
	0
	LINK	PDLNK,.-1
	,DFRINT
	6
	POINT	7,[ASCII/DFRINT/]
	REFB+PROCB+UNTYPE
	XWD	2*0,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	DFRINT,0
	XWD	DFRINT,0


	EXTERNAL DDFINT
	0
	LINK	PDLNK,.-1
	,DDFINT
	6
	POINT	7,[ASCII/DDFINT/]
	REFB+PROCB+UNTYPE
	XWD	2*0,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	DDFINT,0
	XWD	DDFINT,0


	EXTERNAL DFR1IN
	0
	LINK	PDLNK,.-1
	,DFR1IN
	6
	POINT	7,[ASCII/DFR1IN/]
	REFB+PROCB+UNTYPE
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	DFR1IN,0
	XWD	DFR1IN,0
	0+INTEGR+VALUE


	EXTERNAL ENABLE
	0
	LINK	PDLNK,.-1
	,ENABLE
	6
	POINT	7,[ASCII/ENABLE/]
	REFB+PROCB+UNTYPE
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	ENABLE,0
	XWD	ENABLE,0
	0+INTEGR+VALUE


	EXTERNAL DISABLE
	0
	LINK	PDLNK,.-1
	,DISABLE
	7
	POINT	7,[ASCII/DISABLE/]
	REFB+PROCB+UNTYPE
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	DISABLE,0
	XWD	DISABLE,0
	0+INTEGR+VALUE


	EXTERNAL INTMAP
	0
	LINK	PDLNK,.-1
	,INTMAP
	6
	POINT	7,[ASCII/INTMAP/]
	REFB+PROCB+UNTYPE
	XWD	2*0,4
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	INTMAP,0
	XWD	INTMAP,0
	0+INTEGR+VALUE
	0+PROCED+REFRNC
	0+INTEGR+VALUE


	EXTERNAL DFCPKT
	0
	LINK	PDLNK,.-1
	,DFCPKT
	6
	POINT	7,[ASCII/DFCPKT/]
	REFB+PROCB+INTEGR
	XWD	2*0,5
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	DFCPKT,0
	XWD	DFCPKT,0
	0+INTEGR+VALUE
	0+ITMVAR+VALUE
	0+ITMVAR+VALUE
	0+INTEGR+VALUE


	EXTERNAL URSCHD
	0
	LINK	PDLNK,.-1
	,URSCHD
	6
	POINT	7,[ASCII/URSCHD/]
	REFB+PROCB+INTEGR
	XWD	2*0,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	URSCHD,0
	XWD	URSCHD,0


	EXTERNAL PRISET
	0
	LINK	PDLNK,.-1
	,PRISET
	6
	POINT	7,[ASCII/PRISET/]
	REFB+PROCB+UNTYPE
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	PRISET,0
	XWD	PRISET,0
	0+ITMVAR+VALUE
	0+INTEGR+VALUE


	EXTERNAL PSTATUS
	0
	LINK	PDLNK,.-1
	,PSTATUS
	7
	POINT	7,[ASCII/PSTATUS/]
	REFB+PROCB+INTEGR
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	PSTATUS,0
	XWD	PSTATUS,0
	0+ITMVAR+VALUE


	EXTERNAL INTPRO
	0
	LINK	PDLNK,.-1
	,INTPRO
	6
	POINT	7,[ASCII/INTPRO/]
	REFB+PROCB+UNTYPE
	XWD	2*0,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	INTPRO,0
	XWD	INTPRO,0


	EXTERNAL ANSWER
	0
	LINK	PDLNK,.-1
	,ANSWER
	6
	POINT	7,[ASCII/ANSWER/]
	REFB+PROCB+INTEGR
	XWD	2*0,4
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	ANSWER,0
	XWD	ANSWER,0
	0+ITMVAR+VALUE
	0+ITMVAR+VALUE
	0+ITMVAR+VALUE


	EXTERNAL ATI
	0
	LINK	PDLNK,.-1
	,ATI
	3
	POINT	7,[ASCII/ATI/]
	REFB+PROCB+UNTYPE
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	ATI,0
	XWD	ATI,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	EXTERNAL DTI
	0
	LINK	PDLNK,.-1
	,DTI
	3
	POINT	7,[ASCII/DTI/]
	REFB+PROCB+UNTYPE
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	DTI,0
	XWD	DTI,0
	0+INTEGR+VALUE


	EXTERNAL RTIW
	0
	LINK	PDLNK,.-1
	,RTIW
	4
	POINT	7,[ASCII/RTIW/]
	REFB+PROCB+INTEGR
	XWD	2*0,4
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	RTIW,0
	XWD	RTIW,0
	0+INTEGR+VALUE
	0+INTEGR+REFRNC
	0+INTEGR+REFRNC


	EXTERNAL STIW
	0
	LINK	PDLNK,.-1
	,STIW
	4
	POINT	7,[ASCII/STIW/]
	REFB+PROCB+INTEGR
	XWD	2*0,4
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	STIW,0
	XWD	STIW,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	EXTERNAL GTRPW
	0
	LINK	PDLNK,.-1
	,GTRPW
	5
	POINT	7,[ASCII/GTRPW/]
	REFB+PROCB+INTEGR
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	GTRPW,0
	XWD	GTRPW,0
	0+INTEGR+VALUE
	0+INTEGR+REFRNC


	EXTERNAL PSIMAP
	0
	LINK	PDLNK,.-1
	,PSIMAP
	6
	POINT	7,[ASCII/PSIMAP/]
	REFB+PROCB+UNTYPE
	XWD	2*0,5
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	PSIMAP,0
	XWD	PSIMAP,0
	0+INTEGR+VALUE
	0+PROCED+REFRNC
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	EXTERNAL PSIDISMS
	0
	LINK	PDLNK,.-1
	,PSIDISMS
	10
	POINT	7,[ASCII/PSIDISMS/]
	REFB+PROCB+UNTYPE
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	PSIDISMS,0
	XWD	PSIDISMS,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	EXTERNAL PSIRUNTM
	0
	LINK	PDLNK,.-1
	,PSIRUNTM
	10
	POINT	7,[ASCII/PSIRUNTM/]
	REFB+PROCB+UNTYPE
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	PSIRUNTM,0
	XWD	PSIRUNTM,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	EXTERNAL KPSITIME
	0
	LINK	PDLNK,.-1
	,KPSITIME
	10
	POINT	7,[ASCII/KPSITIME/]
	REFB+PROCB+UNTYPE
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	KPSITIME,0
	XWD	KPSITIME,0
	0+INTEGR+VALUE
	0
$DFLT$:	0

	0
	LINK	BALNK,.-1
	XWD	$BEGIN,$BEGIN
	1,,1
	SIXBIT	/BAIPRC/
	-1
	END